Invenzioni & Inventori/Invenzioni and Inventori (Eclectica Publishing) (1996).ISO/invenzio/timeline.dir/00012_Script_12

Text File | 1983-01-29 | 680b | 20 lines

on OLDKATT dacast , quanti, primocan

  repeat while the mousecast >=dacast and the mousecast <= dacast + quanti - 1
    set miohilite = the mousecast
    if miohilite >=dacast and miohilite <= dacast + quanti - 1 then
      repeat with mm = 1 to quanti
        set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
      end repeat
      set the castnum of sprite (miohilite-dacast+primocan) to (miohilite+quanti)
    end if
  end repeat
    if the mousecast < dacast or the mousecast >= dacast + 2*quanti then
    repeat with mm = 1 to quanti
      set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
    end repeat
  end if
end